home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / prism127.arc / ~WINDOWS.PGE < prev    next >
Text File  |  1990-08-01  |  3KB  |  140 lines
  1. :Start
  2. >.v_exist[ r1# ] .else[.define[ r1# r2# r3# r4# r5# r# c# count# ] ]
  3. >.margin[ top 1 bottom 1 left 1 right 1 ]
  4. >r1#=^random# .beep[] .window[] .window[text center center 9 48 yellow]
  5. Besides some other nice features, Iris offers
  6. multi-sized windows with a variety of borders.
  7.  
  8. Some samples follow. The text displayed
  9. in each window shows the instructions used to
  10. create each window, including color and border.
  11.  
  12. Press <Enter> to continue ..
  13. >.pause WindowsLeft
  14.  
  15. !-> A page for each 'column' is used just so
  16. !-> users can "Escape" without waiting for
  17. !-> all the windows to redisplay.
  18.  
  19. :WindowsLeft
  20. >r2#=^random#
  21. !
  22. !-> Window1
  23. !
  24. >.cls
  25. >.window[text top left 2 42 yellow.red]
  26. >.bcolor[text yellow.red single] .clw
  27. .window[text top left 2 42 yellow.red]
  28. .bcolor[text yellow.red single]
  29. >.pause[10]
  30. !
  31. !-> Window2
  32. !
  33. >.window[text center left 2 42 white.blue]
  34. >.bcolor[text blue.lightgray vdouble] .clw
  35. .window[text center left 2 42 white.blue]
  36. .bcolor[text blue.lightgray vdouble]
  37. >.pause[10]
  38. !
  39. !-> Window3
  40. !
  41. >.window[text bottom left 2 42 black.green]
  42. >.bcolor[text black.green double] .clw
  43. .window[text bottom left 2 42 black.green]
  44. .bcolor[text black.green double]
  45. >.pause[20] WindowsRight
  46.  
  47. :WindowsRight
  48. >r3#=^random#
  49. !
  50. !-> Window4
  51. !
  52. >.window[text top right 2 42 yellow.magenta]
  53. >.bcolor[text magenta.brown hdouble] .clw
  54. .window[text top right 2 42 yellow.magenta]
  55. .bcolor[text magenta.brown hdouble]
  56. >.pause[10]
  57. !
  58. !-> Window5
  59. !
  60. >.window[text center right 2 42 cyan.blue]
  61. >.bcolor[text magenta.blue thinsolid1] .clw
  62. .window[text center right 2 42 cyan.blue]
  63. .bcolor[text magenta.blue thinsolid1]
  64. >.pause[10]
  65. !
  66. !-> Window6
  67. !
  68. >.window[text bottom right 2 42 white.brown]
  69. >.bcolor[text white.brown thinsolid2] .clw
  70. .window[text bottom right 2 42 white.brown]
  71. .bcolor[text white.brown thinsolid2]
  72. >.pause[20] WindowsCenter
  73.  
  74. :WindowsCenter
  75. >r4#=^random#
  76. !
  77. !-> Window7
  78. !
  79. >.window[text top center 2 42 green.magenta]
  80. >.bcolor[text magenta.green Lhatch] .clw
  81. .window[text top center 2 42 green.magenta]
  82. .bcolor[text magenta.green Lhatch]
  83. >.pause[10]
  84. !
  85. !-> Window8
  86. !
  87. >.window[text center center 2 47 black.lightgray]
  88. >.bcolor[text black.lightgray Mhatch] .clw
  89. .window[text center center 2 47 black.lightgray]
  90. .bcolor[text black.lightgray Mhatch]
  91. >.pause[10]
  92. !
  93. !-> Window9
  94. !
  95. >.window[text bottom center 2 42 yellow.red]
  96. >.bcolor[text yellow.red Hhatch] .clw
  97. .window[text bottom center 2 42 yellow.red]
  98. .bcolor[text yellow.red Hhatch]
  99. >.pause[20] .beep[o0c]
  100. *
  101.  
  102. :BootRandom
  103. >.cls r5#=^random# .beep[l0t7o0] count#=0
  104. >.window[] .window[text center center 9 44 yellow]
  105. Just for fun, let's create a few windows and
  106. display them at random locations, in random
  107. colors, using random borders.
  108.  
  109. This routine will be a little different each
  110. time you see it.
  111.  
  112. Press <Enter> to continue ..
  113. >.pause[]
  114. >.cls Random
  115. *
  116.  
  117. :Random
  118. >r1#=^r2#  r2#=^r3#  r3#=^r4#  r4#=^r5#  r5#=^random#
  119. >r#=^r1#**^maxrow#  c#=^r2#**^maxcol#
  120. >.window[text ^r# ^c# 3 15 ^r3# ^r4# ^r5# ] .clw
  121. |random window
  122. >.beep[c] Loop
  123. *
  124.  
  125. :Loop
  126. >count#+1 count#==24 .then[ menu ] .else[ random ]
  127. *
  128.  
  129. :Menu
  130. >.beep[] .beep[o0c] .pause[]
  131. >.window .window[text bottom center 8 46 ] .window[menu bottom center 2 10 ]
  132. |Now, you can either Start·Over from the
  133. |beginning or run the Random routine again.
  134.  
  135. |Otherwise, press <Esc> and try another Book.
  136. ?Random BootRandom ?Start·Over Start
  137. *
  138. End of ~Window.PGE
  139. *
  140.